home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbfaqr01.zip / DISPRT.QRM < prev    next >
Text File  |  1992-06-06  |  2KB  |  61 lines
  1. ===========================================================================
  2.  BBS: PC Connect
  3. Date: 06-03-92 (13:37)             Number: 11798
  4. From: BRENT ASHLEY                 Refer#: 11702
  5.   To: PATRICK WANG                  Recvd: NO  
  6. Subj: PAUSE KEYS                     Conf: (11) R-QBasic
  7. ---------------------------------------------------------------------------
  8.  
  9.   Turning off PrintScreen is pretty simple.  There is a flag in the
  10. BIOS data area which is set when the printscreen process is
  11. active.  If you set this flag, PrintScreen won't bother because it
  12. thinks it's already happening.
  13.  
  14. DEF SEG = 0
  15. POKE &H500, 1 ' disable printscreen
  16. POKE &H500, 0 ' enable  printScreen
  17.  
  18.   Avoiding the pause is a bit more complicated - a TSR is needed.
  19. This TSR (written with Crescent's PDQ) will reset the pause
  20. function every 1/18.2 seconds.  It does this by clearing bit 3 of
  21. 0000:0418, which tells the system whether the hold state is active.
  22.  
  23. It doesn't actually disable the pause feature, but it certainly ensures
  24. it doesn't stay paused for more than an eighteenth of a second.
  25.  
  26. '
  27. ' NoPause - disables CTRL-NumLock and PAUSE action
  28. ' by Brent Ashley - uses PDQ link library
  29. '
  30. DEFINT A-Z
  31. '$INCLUDE: 'PDQDECL.BAS'
  32. DIM Registers AS RegType
  33. Registers.IntNum = &H1C  ' timer tick interrupt
  34.  
  35. ID$ = "NoPause v1.0 - Brent Ashley"
  36. PDQPrint ID$, CSRLIN, POS(0), 7
  37.  
  38. CALL PointIntHere(Registers) ' control goes here on timer tick
  39. GOTO EndIt
  40. CALL IntEntry1
  41. CALL IntEntry2(Registers, 0)
  42.  
  43. CallOldInt Registers              ' let BIOS do its tick stuff
  44. DEF SEG = &H40                    ' bios data area
  45. POKE &H18, PEEK(&H18) AND &HF7    ' turn off pause
  46. ReturnFromInt Registers           ' return to the underlying app.
  47.  
  48. EndIt:
  49. EndTSR ID$                        ' exit while staying resident
  50.  
  51. ' end of program
  52.  
  53.  
  54. -----
  55. Brent
  56. -----
  57.  
  58.  
  59. PCRelay:CRS -> #460 RelayNet (tm)
  60. 4.11           Canada Remote Systems * Toronto, Ontario
  61.